(glasses-mode): Update mode line at the end

of the function.

diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el
index bc28ca68b96d3184b1c3802a0fd830081261783e..2b4fba4dfe87ae3075e1078cffff4fa891b7866d 100644 (file)
--- a/lisp/progmodes/glasses.el
+++ b/lisp/progmodes/glasses.el
@@ -257,7 +257,6 @@ recognized according to the current value of the variable `glasses-separator'."
                                           'glasses-mode)
                               'help-echo "mouse-2: turn off Glasses mode")))
 
-
 ;;;###autoload
 (defun glasses-mode (&optional arg)
   "Minor mode for making identifiers likeThis readable.
@@ -284,7 +283,8 @@ at places they belong to."
            (remove-hook 'after-change-functions 'glasses-change t)
            (remove-hook 'local-write-file-hooks
                         'glasses-convert-to-unreadable t))))
-      (setq glasses-mode new-flag))))
+      (setq glasses-mode new-flag)
+      (force-mode-line-update))))
 
 
 ;;; Announce